100 Dim Cl$(3>, C2$(3),Dt(7),8$(7),Nt(40), At(40), Al$(40),Hisct(20!,T$(13),Fl$<32!, (71(10), #ltc$(lQ>,Triit(12) 200 Dim Pn$(12),De5$(30),Vn$(35),Valt(35!,Va2t(35),Loc$(10),Cnt(35),Calt(35),Ca2$(35),Pon$(12) 400 Trap 700:0pen #1,4,0, “D1 : SETUP, DAT“ : Rget #l,Ci*,C2*,N*,At,Al*,Misc$,Ptl,Pt2,Pt3,Pt4,H3,H4,H5,H6 450 Close fliOpen #1 , 4 , 0, “D1 s SETUP2.BAT": Rget #l,Dt,Dtot,In,Ytd,Ptd,Ttd,Nac , Tr, Ml , H2, H7, US, H9, HiO 460 Max=22000:Dia S$C5) , (4 ) , Acptf (Max *M1 ) 500 Close #1 : Open #1,4,0, "Dl:ACCPT.DAT":Rget tl.Acptt 700 Close #1 800 Graphics 2: Poke 710, Cl ; Poke 712, C2: Poke 755,l:Poke 82,2 850 Position 5,2:? #6; “invoicing'iPosition 3,6:? 16; “COPYRIGHT 1983 900 Position 5,7:? #6; “NEWELL IND“ 1000 Cl=Val (Clti :C2-Val (C2$) I! 1100 Poke 710,Cl:Poke 712,C2:Poke 755,1 1200 Poke 657,20-(Len(Nt)/2):? N$ 1300 Poke 657,20- (Len < A*> /2> : ? At 1400 Poke 657,20-(Len(Al$)/2);? Alt 1500 Poke 657, 20- (Len (Mi set) /2) : ? Misct; 1600 Del 100, 700: Del 850, 1500: Dim Pnptf CMaxtH2) : Trap 1610: Basub 16000 1610 Trap 1700: Del 1600,1610 1700 ? 16:”)“ 1800 Position 1,1:? #6;“Sale“:Position 1,2:? #6;“Inventory“;Position 1,3:? #6; “Exit to aenu" 1900 Position 1,4:? #6;"Return to stock” : Position 1,5:? #6; “Total s“ : Position 1,6:? #6s “Close out day" 1910 Position 1,7:? #6; “Quote" 2000 ? "IENTER FIRST LETTER OF YOUR CHOICE." 2100 Gosub 12800 2200 Position 0,9 2300 Suote=0: If Key=AscPS"! Then 2900 2400 If Kev=Asc!"l“) Then 8700 2500 If Kev=AscPE"! Then ? #6; “LOADINS MENU": Run “D:HENU“ 2600 If Key=AscPfi") Then 9000 2700 If Key=Asc!"T") Then 9900 2750 If Key=Asc ( “C" ) Then 15000 2760 If Key=AscP8") Then 8uote=l:Goto 2900 2765 If Key=AscP*) Then Run “D: INVENTOR" 2770 If Key=AscP"> Then Run "D: REPORTS" 2775 If Key=Asc<" "> Then Run "D: MAILLIST" 2780 If Key=Asc ( "") Then Run “D: 0RDERREC* 2800 Goto 1700 2900 Graphics OsPoke 710,Cl:Poke 712,C2:Position 14,0:? "INVOICE SALE“:Position 13,1:? "RETURN TO QUIT" 2910 If Quote >0 Then Position 14,0:? “SALES QUOTE ":? 3000 Trap 800:? "ENTER SALESPERSON t“; : Input Spn:? “ENTER ACCOUNT #“| : Input Acct:St=0:Ttoi=0 3100 Gosub 10700: Test=0:Tr«t=*CASH“ 3200 If Acc$="“ Then Acc=0:6oto 3600 3300 If Acc$="NEW" Then Acc=Nac:Acct=Strt(Acc):Test=l 3400 Gosub 13000: If F>0 Then Gosub 14000: Goto 3600 3500 Goto 2900 3600 Gosub 11000 3700 FI $=“#### $####. ## i##### , ## " : F2 1= " t ##### . ## “ 3800 ? "IS THIS INFORMATION CORRECT (Y OR NP 3900 4000 4100 4200 4210 4300 4400 4500 4600 4700 4800 4900 5000 5100 5200 a ■ Gosub 12800: If KeyOAscPY") And KeyOAscPy") Then 2900 Trap 4100:Close #7:0pen #7,8,0, "P: ":6oto 4200 TURN ON PRINTER AND PRESS RETURN) ":Gosub 12800:6oto 4000 #7;N$: ? I7;A$:? #7;A1$:? #7;Misct:If Quotefl Then In=In+l:Goto 4300 #7:? #7:? #7;Tab(35);Chr$(Ptl);*8UQTE";? #7:? #7:? #7:6oto 4400 #7:? 17:? #7?Tab (33) ; Chr$ fPt 1 ),*“ INVOICE" : ? #7; Tab (33) ; Chr*<Pt 1 ) ; ; In: ? 17:? #7:? #7 #7; •=r=:==== :::::: rr :::::::::: :r: :: rrrr:r.-= l7;Chr$!Ptl);"T0:";Tab(21) ;"ACC# “;Acc *7;Cnt;Tab!40);"DATE:";Dt(l,2);*/";Dt(3,4);“/";Dt(5,6) # 7 ; Ca 1 i ; Tab ( 40 >;" SALESPERSON Spn ? #7;Ca2t;Tab<40);"P.0. OR AUTH:“;Pon$ ? *7; "=============”=======================»•? #7;? #7 ? #7; “PART #“;Tab(14) ; "DESCRIPTION" ; Tab (52) ; “8UAN"; Tab (58); “PRICE EA";Tab(68i;“EXT. PRICE' n u }":Po5itipn 15,0:? "INVOICING": If 8uote>0 Then ? "PiPosition 17,0:? "QUOTE 1 3OU0 bosub 11300: it Pn*= END Then 6600 5350 If Pn$="NEXT" Then Gosub 16000:6oto 5200 5400 If F=Q Then 5200 5500 Gosub 10100 5600 Trap 5600: Position 2,19:? “HOW MANY';: Input Hu: If Ha<=0 Then 5200 5700 Trap 5900:Position 2,20:? “PRICE EACH"; : Input Pe: If Pe<0 Then 5700 5300 Goto 6000 5900 Pe=Pri 6000 Position 11,19:? Ha;” "sPosition 13,20:? Pe; “ ":? 6100 if KeyOAscCY") And KeyOAsc(“y“! Then ? ”}“:Goto 5500 6200 Ep=0:Ep=HalPe:If Pg>4999 Then Ttol=Ttol+Ep 6300 ? #7; Pn$; Tab ( 14i ; Des$; Tab (52) ; ; ? 17; Using Fl$,Ha,Pe,Ep 6310 If Guote>0 Then St=St+Ep:6oto 5200 6400 Sold=Sold+Hs:Tds=Tds+Ep:Qoh=Qoh-H®:St=St+Ep 6500 Gosub 12400: Dtot=Dtot+Ep: Goto 5200 6600 ? #7; “ ===========================================rr=====; "IS THIS CORRECT (Y OR N)";:6osub 12800 u 6700 ? “HS SALE TAXABLE"; : Input T$:Tax=0 6710 If T*<>"Y" And TIO"y“ Then 6900 6720 Trap 6720:Position 2,2:? "TAX RATE X ";Trtl00:Position 12,2: Input Temp: Tr=Te»p/ 100 6800 If T*="Y“ Or T$=“y“ Then Tax=Int((TrtTtol) *1001/100: If Tax<TrlTtol Then Tax=Tax+0,01 6900 Trap 6900:Position 2,3:? "SHIPPING CHARGE";: Input Sc 7000 Total =St+Sc+Tax 7100 Position 2,5:? "AMOUNT DUE $";Total:If 0uote>0 Then 7300 7200 Trap 7000: Positi on 2,7:? ‘AMOUNT RECEIVED"; : Input Aat 7300 Position 2,9:? “TERMS"; : Position 8,9:? Tr®$; Position 7, 9: Input Tra$ 7400 ? "IS THIS CORRECT (Y OR N)“:6osub 12800: If KeyOAscCY") And KeyOAsci“y"! Then 6700 7500 ? #7; "TERMS: " ; Trat; Tab (52) ; "SUB-TOTAL"; Tab (68) ; : ? #7; Using F2$,St 7550 If Tax>0 Then ? 17; Tab (52); "TAXABLE T0T.";Tab(68);:? 17; Using F2f,Ttol:Ttd=Ttd+Ttcl 7600 ? #7;Tab(52);"TAX";Tab<68);:? #7; Using F2$,Tax 7700 ? #7; Tab (52) ; “SHIP/HANDL ING"; Tab (68) ; : ? *7; Using F2$,Sc 7800 ? #7; Tab (52) ; “TOTAL" ; Tab (68) ; ; ? #7; Using F2$,Total:If Quote>0 Then 8250 7900 ? #7; Tab (52); "AMOUNT PAID"; Tab (68) ; :? #7; Using F2$,Aat:If Aat>=Total And Tax>0 Then M7=M7+Ttol:M9=M9+Tax 8000 If A®t)Total Then ? *7;Tab(52) ; “REFUND" ; Tab (68) ; :? 17; Using F2$, Amt-Total 8100 Bal =0: If Aat<=Total Then Bal=Total-Aat 8200 ? #7; Tab (52); "BAL DUE" ; Tab (68) ; : ? 17; Using F2$,Bal 8250 If Acc>0 Then ? #7; "Please use account nuaber when placing orders." 8300 ? #7; Chrt (Pt 1 ) ; "THANK YOU" ; Chr$ (Pt4) : If 0uote>0 Then 800 ’ 8400 Tdt=Tdt+Total:Pd=Pd+Aat:Bd=Tdt-Pd:Ytd=Ytd+Total-Tax:Ptd=Ptd+Total-Tax:M8=M8+Aat 8500 If Acc>0 Then Gosub 13700: If Test>0 Then Nac=Nac+l 8600 Gosub 12100:Goto 800 8700 Graphics 0:Poke 710,Cl:Poke 712,C2:Position 13,0:? "INVENTORY CHECK":Position 11,1:? “ENTER ’END’ TO QUIT 8800 Gosub 11300: If Pnt="END" Then 800 8850 If Pn$=“NEXT“ Then Gosub 16000: Goto 8700 8860 If F=0 Then 8700 8900 ? "I":Gosub 10100: Gosub 12300: Goto 800 9000 Graphics OiPoke 710,Cl:Poke 712,C2:Position 17,0:? "RETURN" 9100 Gosub 11300: If F=Q Then 800 9200 Gosub 10100:Position 2,19:? "IS THIS IT?“;:Gosub 12800: If KeyOAsc("Y") And KeyOAscCy") Then 800 9300 Trap 9300: Posi ti on ‘2,19:? "HOW MANY Input Ha: If Ha<=0 Then 800 9400 Trap 9400:Position 2,20:? "PRICE EACH";: Input Pe: If Pe<0 Then 9400 9500 Position 11,19:? Ha;" ":Position 13,20:? Pe:" ’:? "IS THIS CORRECT (Y OR N)"::Gosub 12800 9600 If KeyOAscCY") And KeyOAscCy") Then 800 9700 Qoh=Qoh+Ha:Soid=Sold-Ha:T7=Ha»Pe:Tds=Tds-T7:Ytd=Ytd-T7:? "TAXABLE"; :Gosub 12800: Tax=0:Ptd=Ptd-T7 9710 If Key=Asc("Y") Or Key=Asc("y") Then Ttd=Ttd-T7:Tax=Int((Tr»T7)»100)/100;If Tax<Tr*T7 Then Tax=Tax+0.01 9720 Ytd=Ytd-Tax : Pt d=Ptd-Tax : Dtot=Dtot-T7 9800 Gosub 12100: Gosub 12400: Goto 800 9900 Fl$="mt*««.t» $***#*.#»":? " YEAR PERIOD TODAY" 9950 ? Using FI$, Ytd, Ptd, Dtot 10000 Goto 2100 10100 Position 2,2:? "PART NUMBER: “;Pn$ 10200 ? 10300 ? 10400 ? 10500 ? 10550 ? "DESCRIPTION;":? Desl "VENDOR;":? Vn$:? Val$:? Va2$ “8QH: ";Goh:? "LOCATION: ";Loc$:? "REORDER POINT: “;Reo:? "QUANITY SOLD: “;Sold:? "TOTAL DOLLAR VALUE SOLD; $ n ; Tds: ? "GROUP: *;Pg 10600 Return ’COST :$“;Cost:? ■QTY ON ORDER: 1 "SALE PRICE: $”;Pri ;Qoo iu/uu ' -rjmiuon "LUSlUMtK NAMfc":Position 2,3:? "CUSTOMER ADDRESS": Position 2,5:? 10800 Position 2,7:? “P.O. NUMBER" 10900 Return 11000 Position 1,2: Input CniiPosition 1,4: Input Cali:Position 1,6: Input Ca2t 11100 Position 1,8: Input Poni 11200 Return 11300 ? :? "PART NUMBER": Input Pni:If Pnt*"END" Or Pn$=“NEXT“ Then Return 11400 Tt="#",Pni,"i" 11500 F=Find(Pnpti,Tt,Q) :T=F:If F=0 Then ? * PART NUMBER NOT IN INVENTORY}}}": For W=1 Ti 11600 F=Find(Pnpt$,”i",F):S=Val (Pnpti(F+l)) 11700 F=Find (Pnptl, "4“ ,F) :B=Val (Pnptf (F+l i ) 11800 Trap 12000:0pen #1,4,0, "D2: INVFIL.DAT" 11900 Point #l,S,B:Rget #l,Pni,Desi,Vni,Valt,Va2i,Soh, Loci, Rea, Cost, Pri, Sold, Tds.Ooo.Pg 12000 Close ll:Return 12100 Trap 12600: Close #1 12200 Open 11,8,0, ”D1 : SETUP2.DAT " : Rput #l,D$,Dtot, In,Ytd,Ptd,Ttd,Nac,Tr,Ml,M2,M7,M8,M9,M10 12300 Close #l:Return 12400 Trap 12600:Close #l:0pen #1, 12,0, "D2: INVFIL.DAT" 12500 Point #l,S,B:Rput #l,Pnf,Desi,Vni,Vali,Va2i,0oh, Loci, Reo, Cost, Pri, Sold, Tds,Qoo,Pg 12600 Close #l:Return 12800 Close #2:0pen #2,4,0, "K: *:Get #2,Key:Close #2 12900 Sound 0,100,10,14: For W=1 To 4: Next Sound 0,0,0,0:Return 13000 Tt="#",Acct,“8" 13100 F=Find(Acpti,Tt,0):T=F: If F=0 Then ? " ACCOUT NUMBER NOT ON FILE }}}": For W=1 Tc 13200 F=Find (Acpti, "l“,F):Sa=Val ( Acptt (F+l ) ) 13300 F=Find < Acpti, “&“,F):Ba=Val (Acpti (F+l) ) 13400 Close #l:Trap 13600:0pen #1 , 4, 0, "D1 : ACCOUNT. DAT“ 13500 Point #l,Sa,8a:Rget #l,Cni,Cali,Ca2i,Tdt,Pd,Bd,Acc,Tr«i 13600 Close #1 : Return 13700 Trap 139GO:0pen #1, 12,0, "Dl: ACCOUNT. DAT" 13800 Point tl,Sa,Ba:Rput #l,Cnt,Calt,Ca2t,Tdt,Pd,Bd,Acc,Tr*i 13900 Close #l:Return 14000 Position 2,2:? Cni:Position 2,4:? CalisPosition 2,6:? Ca2i 14100 Return 15000 ? "} ARE YOU SURE ?";:Sosub 12800: If KeyOAscfY") Then 2000 15100 Trap 8000:Close #7:0pen #7,8,0, “P":? #7;Chr$(Ptl);'DAILY SALES ";Di(l,2);“/ n ;Di(3,4);" 15200 F2t=‘t######.##":? #7:? #7;“CASH SALES ";:? #7; Using F2i,M8 15300 ? #7; "TAXABLE SALES";:? #7; Using F2i,M7 15400 ? #7; "TAX COLLECTED";:? #7; Using F2i,M9:M7=0:M8=0:M9=0:6osub 12100 15900 Run "D:SBM" 16000 Close # 1 : Open #l,4,0,"D2:INVPT.DAT“:Rget #l,Pnpti:Close #l:Return "CITY, ST. ZIP 100: Next NsReturn 100: Next W:Return /*;Di!5) 900 Position 5,7 1000 Cl=Val (Clt) 1100 Poke 710, Cl 100 Diit Clt{3),C2$(3),D*(7),Q$(7),N*!40),A*(40),Al$C40),Hisc$(20),T4(38),Fl$il20) 150 F 1 $= B ! !!!!!!!!!!!!!!*!! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 * * 1 1 Niimiiiiim $ 1 ##### ##“ 200 Di® Act* ( 10) , Cn$ (35) , Cal $ i 35) , Ca2$ 400 Trap 700 500 Open #1,4,0, “Dl: SETUP. DAT" i Rget «1 ,rif ,f?f , Hf , Af ) | f , fli sr 1 , Pt 1 , Pt ? , ,-Tt 1 ,H3,H1 , fl"), ftfi-H mr #1 550 Open #1 , 4, 0, “Dl : SETUP2. DAT” : Rget il,D$,Dtot, In,¥td,Ptd,Ttd,Nac,Tr,Ml,M2,H7,M8,M9,M10 560 Max=22000: Di at St (5) , B# (4) , Acptf (Max t«l ) 600 Close #1 : Open #1,4,0, "Dl : ACCPT. DAT" : Rget il.Acptt 700 Close #1 800 Graphics 2:Poke 710,Cl:Poke 712,C2:Poke 755, 1 : Poke 82,2 850 Position 3,2:? #6; "account reports“:Position 3,6:? 16; “COPYRIGHT 1983“ ? #6; "NEWELL IND" C2=Val (C2$l Poke 712,C2:Poke 755, IsPoke 82,2 1200 Poke 657,20-(Len!Nt)/2):? N$ 1300 Poke 657,20-(len(A$)/21:? A$ 1400 Poke 657, 20-(Len (Alt) /2) :? Alt 1500 Poke 657,20-(Lend1isct)/2) :? Mi set; 1600 Del 0,560 1625 Del 850,1600 1700 Trap 1700:? #6;"}' 1800 Position 1,0:? #6;"All":Position 1,1:? #6;“0utstanding“:Pasition 1,2:? #6; "Exit to ®enu* 1900 Position 1,3:? #6; “Sel ected“: Posi ti on 1,4:? 16; "Recover Piles" 1950 Position 1,5:? #6: "Credit accounts":Position 1,6:? #6:"New accounts":Position 1,7:? #6; "List accounts 1960 Position 1,8:? #6; "Update/edit" 2000 ? “1ENTER FIRST LETTER OF YOUR CHOICE." 2100 Gosub 11100 2200 Position 0,9 2300 IP Key=Asc("A‘) Then 2900 2400 IP Key=Asc("0") Then 4800 2500 IP Key=Asc("E") Then ? 16; "LOADING MENU": Run “D:MENU" 2600 IP Key=Asc("S") Then 6900 2700 IP Key=Asc("R") Then 8100 2750 IP Key=Asc("C") Then 5400 2770 IP Key=Asc(*N") Then 9300 2780 IP Key=Asc("L"> Then 3900 2790 IP Key=Asc("U") Then 9600 2791 IP Key=Asc(“") Then Run "D: INVENTOR" 2792 IP Key=Asc ( " ") Then Run "D:INVOICIN“ 2793 IP Key=AscC“) Then Run "DsORDERREC" 2794 IP Key=Asc(" ") Then Run "D:MAILLIST" 2800 Goto 1700 2900 Graphics 0:Poke 710,Cl:Poke 712, 02: Fosi ti on 16,0:? “ALL ACCOUNTS" :Rc=0 3000 Trap 8000:6osub 15000: Gosub 14900:? #7; Chrt (Pt 1 ) ; “ALL ACCOUNTS" 3300 Gosub 16500: IP Cn$="" And Acc>Nac Then ? #7;Chrt (Pt4) : Goto 8000 3400 Gosub 10000 3800 Goto 3300 3900 Graphics OiPoke 710,Cli Poke 712,C2:Position 16,0:? "ACCOUNTS LIST“:Rc=0 3910 ? "NUMERICAL":? “ALPHABETICALLY":? :? “ENTER FIRST LETTER OF YOUR CHOICE"; 3920 Gosub 11100: IP Key=Asc("N") Then 4000 3930 IP Key=Asc("A") Then 4400 3950 Goto 8000 4000 Trap 8000:6osub 15000:Gosub 14900:? #7;Chr$!Ptl) ; "ACCOUNTS LIST" 4100 Gosub 16500; IP Cn$="" And Acc>=Nac Then ? #7;Chr$(Pt3t:Chr$!Pt4):6oto 8000 4200 Gosub 20000 4300 Goto 4100 4400 Trap 8000:Gosub 15000:Gosub 14900:? #7; Chrt (Pt 1 ) ; "ACCOUNTS LIST":Acpt$="“ 4420 Trap 4600:Gosub 16500: IP Cn$="“ Then 4600 4440 Cnt(5)="":Acpt$=Acptt,"#",Cn$,"8",StrtiSa),"&",Str$(Ba):Goto 4420 4600 T$="zzz:zz":F=0 4620 F=Find(Acptt,“#",F):IP F=0 Then 4700 4640 IP Acptt !F,F+4KT$ Then T$=Acpt$(F,F+4):Fl=F:6ota 4620 4660 Goto 4620 4/uu h=nna(ficpt», e“,H):sia=vai(ftcpti(h+i)) 4710 F=Find(Acpti,"V , ,F):Ba=Val(Acpt$(F+l)) 4720 Acpt$(Fi,Fl)="X*:6osub liOOOsSpsub 20000 4730 F=Find(Acpt$,"#\0):If F=0 Then ? #7; Chr$ (Pt4) : Close li:Close #7:&oto 600 4799 Goto 4600 4300 Graphics 0:Poke 710,Cl:Poke 712,C2:Position 10,0:7 “OUTSTANDING ACCOUNTS": 6to=0: Rc=0 4900 Trap 8000:Gosub 15000:Gosub 14900:7 #7; Chr$ (Ptl ) ; “OUTSTANDING ACCOUNTS' 5000 Gosub 16500: IF Acc)Nac Then 5350 5100 If Bd<=0 Then 5000 5200 Gosub 10000: Gto=Gto+Bd 5300 Goto 5000 5350 7 17:7 #7; "TOTAL QUSTANDING i ";Gto:7 #7; Chr$ (Pt4) : Goto 8000 5400 Graphics 0:Poke 710,Cl:Poke 712, 2: Posi ti on 13,0:7 "CREDIT ACCOUNTS" 5500 Gosub 12100 5700 Trap 6500: Acc=Val (T$) :Acc$=T$:T$=“#",Acct, “8" 5800 F=Find(Acpt$,T$,0):If F=0 Then 7 “ACCOUNT NOT ON FILE}}}': For N=1 To 100:Next H:6oto 5400 5900 Gosub 12000 6100 Gosub 18000: Gosub 19700: Gosub 21000: Gosub 21100 6110 7 “IS THIS THE 0NE":6osub 11100 6200 If KeyOAsc!"Y“) And KeyOAsci'y') Then 8000 6210 7 “ENTER AMOUNT OF PAYMENT"; : Input Pat 6220 7 “IS THIS CORRECT" :Gosub 11100 6230 If KeyOAsc("Y“) And KeyOAsci'y") Then 6210 6300 Pd=Pd+Pat:Bd=Bd-P®t 6400 Gosub 17500: Gosub 17000: Goto 8000 6500 Trap 8000: Gosub 15000 6600 Gosub 16500: If Tt=Cn$(l,Len(T$) ) Then 6100 6700 If Acc>*Nac Then 8000 6710 Goto 6600 6900 Graphics 0:Poke 710,Cl:Poke 712, 2: Posi tian 12,0:7 "SELECTED ACCOUNTS" 7000 Gosub 12100 7200 Trap 7500: Acc=Val (Tt) :Acct=T$:T$=“#*,Acc$, “8“ 7210 F=FindiAcpt$,T$,0) : If F=0 Then 7 “ACCOUNT NOT ON FILE}}}": For H=1 To 100:Next H:6oto 6900 7220 Gosub 12000 7260 Goto 7600 7270 Gosub 14900: Gosub 10000: Goto 8000 7500 Trap 8000:Gosub 15000 7510 Trap 7520:Gosub 16500: If T$=Cnl!l,LeniT$!) Then 7600 7520 If Acc)=Nac Then 8000 7530 Goto 7510 7600 Gosub 18000: Gosub 19700: Gosub 21000:Gosub 21 100: Gosub 11100 7605 If Key=Asc(“^) Then 7510 7610 If KeyOAsci'P') And KeyOAscCp") Then 8000 7700 Goto 7270 8000 Close #l:Close #7 : Goto 300 8100 7 “THIS FUCNTI0N HILL REINDEX ALL OF THE":? "ACCOUNT FILES. PRESS Y TO START,':? “N TO ABORT. 8200 Gosub 11100 8300 If KeyOAsci'Y") And KeyOAsc("y"> Then 800 8400 Close #l:0pen #1,4,0, "Dl: ACCOUNT. OAT" 8500 Acpt$="": Trap 9000 8600 Gosub 16500 8700 S$=Str$ (Sa) : B$=Str# (Ba) : Acct=Str$ ( Acc) 8800 Acpt$=Acpt$,“#",Acc$, “8",S$, “i",B$ 8900 Goto 8600 9000 Close #l:Poke 1913,80:0pen #1,8,0, “Dl: ACCPT.DAT" 9100 Rput #l,Acpt$ 9200 Close #l:Poke 1913,87:Goto 800 9300 Graphics 0:Poke 710,Cl:Poke 712, C2: Posi ti on 16,0:7 “NEW ACCOUNTS* 9310 Acc*=Str$(Nac): Gosub 18700: If F=0 Then 8000 9315 Gosub 18000: Gosub 18200:Gosub 19700 9320 Position 2,18:7 "IS THIS CORRECT?"; :6osub 11100 9330 If KeyOAsc!"Y") And KeyOAsc(“y") Then 8000 9400 Tdt=0:Pd=0:Bd=0:Gosub 17500: Gosub 17000:Nac=Nac+l:Gcsub 18400 9500 Goto 8000 9600 Graphics 0:Poke 710,Cl:Poke 712, 2: Posi ti on 15,0:7 "UPDATE/EDIT" 9610 Gosub 12100 Y6 30 trap Y/5U:Acc=val ( J$):Acc$=T$:T$- # ,Acc$, 8 9640 F=Find!Acpt$,TM): If F=G Then ? “ACCOUNT NOT ON FILE})}": For ti=l To lOOiNext N:Goto 9600 9650 Gosub 12000 9680 Gosub 18000: Gosub 19700: Gosub 21000: Gosub 21100:? "IS THIS THE 0NE“:Gosub 11100 9690 If KeyOAscCY") And KeyOAscCy") Then 8000 9700 Gosub 18200: Gosub 21200 9710 ? "IS THIS CORRECT?"; :6osub 11100 9720 If KeyOAsc("Y") And KeyOAscCy") Then 8000 9730 Gosub 17500: Gosub 17000: Goto 8000 9750 Trap 8000: Gosub 15000 9760 Gosub 16500: If T$=Cnt(l,Len(T$) ) Then 9680 9770 If Acc)=Nac Then 8000 9780 Goto 9760 10000 ? #7;Chr$(Ftl!;*#‘;Acc 10100 ? 17; Using Fl$,Cn*,‘TQ DATE TQT“,Tdt 10200 ? #7; Using Fl$, Call, "PAID TO DATE", Pd 10300 ? 17; Using Fli,Ca2$, “BALANCE DUE “ , Bd 10400 ? 17:? #7: Rc=Rc+l : If Rc>9 Then ? #7;Chrl(Pt4):Rc=0 11000 Return 11100 Close #2:0pen #2,4,0, "K: “ : Set #2,Key:Close #2 11200 Sound 0,100,10,14: For N=1 To 4: Next N: Sound 0, 0, 0, 0: Return 12000 F=Fi nd (Acptt, "8“ , F) : Sa=Val (Acpt$ (F+l ) ) 12010 F=Find(Acpt$,"&",F):Ba=Val(Acpt$(F+l!> 12099 Trap 8000: Gosub 15000: Gosub 16000: Return 12100 Position 2,2:? "ENTER ACCOUNT NUMBER OR NAME": Input T$ 12110 If T$="“ Then Pop :6oto 8000 12199 Return 14900 Close #7:0pen #7,8,0, “P:“ 14999 Return 15000 Close # 1 : Open #1,4,0, "DhACC0UNT.DAT" 15500 Return 16000 Point #l,Sa,Ba:Rget #l,Cn$,Cal$,Ca2t,Tdt,Pd,Bd,Acc,Tr«eReturn 16500 Note #l,Sa,Ba:Rget #l,Cn$,Cali,Ca2$,Tdt,F'd,Bd,Acc,Tr*t:Return 17000 Point #l,Sa,Ba:Rput #l,Cnt,Cal$,Ca2$,Tdt,Pd,Bd,Acc,Trai:Return 17500 Close #l:0pen #1,12,0, “Dl : ACCOUNT. DAT“ : Return 18000 ? ”}":Pasition 2,0:? "ACCOUNT #”;Acc:Position 2,1:? "CUSTOMER NAM£“:Position 2,3:? "CUSTOMER ADDRESS 18100 Position 2,5:? "CITY, ST. ZIP" : Position 2,7:? "TERMS": Return 18200 Position 1,2: Input Deposition 1,4: Input Cal$:Position 1,6: Input Ca2$:Position 1,8: Input Trat 18300 Return 18400 Trap 8000: Close #1 18500 Open #1,8,0, " D 1 : SETUP2 . DAT " : Rput #l,D$,Dtot, In,Ytd,Ptd,Ttd,Nac,Tr,Ml,M2,M7,M8,M9,M10 18600 Close #1: Return 18700 T$="#",Acc$,"S" 18800 F=Find<Acpt$, Tt,0) :T=F: If F=0 Then ? ■ 18900 F=Find(Acpt$,"8",F):Sa=Val (Acpt$!F+U) 19000 F=Find(Acpt$,”?(",F):Ba=Val lAcpt* (F+D) 19100 Close #1 : Trap 19300:0pen #1,4,0, “D1 : ACCOUNT. DAT " 19200 Gosub 16000 19300 Close #1: Return 19700 Position 2,2:? Deposition 2,4:? CallsPosition 2,6:? Ca2$:Position 2,8:? Tra$ 19800 Return ACCOUNT FILE IS FULL }}}“: For N=1 To 100: Next W:Return 20000 ? #7;Chr#!Pt2);Acc;Tab(8);Cn$;Tab(45):Calt;Tab(82);Ca2$;Tab(118);Trffl$;Chr$(Pt3) 20100 Rc=Rc+l: If Rc>56 Then ? #7;Chr*(Pt4):Rc=0 20900 Return 21000 Position 2,9:? "TOTAL SALES“:Position 2,11:? "PAID":Position 2,13:? "BALANCE" 21010 Return 21100 Position 2,10:? Tdt:Position 2,12:? Pd:Position 2,14:? Bd 21199 Return 21200 Position 1 , 10: Input TdtiPosition 1 , 12: Input Pd: Position 1,14: Input Bd 21299 Return 100 Dis Clt(3),C2t(3),Dt(7),Qt(7),Nt(40),At(40),Alt(40),Hisct(2Q!,Dtott(10),Tt(13),Flt(125) 200 Dim Pn$ < 12) , Des* (30) , Vn* (35) , Val* (35) , Va2$ (35) , ( 10) , Cn$ (35) 400 Trap 700 500 Open It, 4,0, "DliSETUP.DAT*: Rget #i,Clt,C2t,Nt,At,Alt,Misct,Ptl,Pt2,Pt3,Pt4,H3,M4,M5,M6:Close #1 550 Open #1,4,0, “D1 : SETUP2. DAT" : Rget #l,Dt,Dtot, In,Ytd,Ptd,Ttd,Nac,Tr,Nl,M2,M7,M8,M9,M10 560 Max=22000:Dia SS (5) , (45 , Pnpt* (Max *H2 ) 600 Close #1 : Open #1,4,0, "02: INVPT.DAT": Rget tl,Pnpt$ 700 Close #1 800 Graphics 2:Poke 710,Cl:Poke 712,C2:Poke 755, liPoke 82,2 850 Position 5,2:? #6; "inventory'.-Position 3,6:? #6; "COPYRIGHT 1983" 900 Position 5,7:? #6; "NEWELL IND" 1000 Cl=Val !C1$) :C2=Val (C2$) 1100 Poke 710, Cl : Poke 712,C2:Poke 755, l:Poke 82,2 1200 Poke 657,20- (Len (M$ ) /2) : ? N$ 1300 Poke 657, 20- (Len ( A$) /2) :? At 1400 Poke 657, 20- (Len (Al$> /2) : ? Alt 1500 Poke 657, 20- (Len (Hi set) /2) :? Hi set; 1600 Del 100,700 1625 Del 850,1600 1700 Trap 1700:? #6; "l" 1800 Position 1,1:? #6; “Add inventory“:Position 1,2:? #6;"Inventory edit“:Position 1,3:? #6; "Exit to aenu" 1900 Position 1,4:? #6;“Print inventory": Position 1,5:? #6;”Recover files" 2000 ? 'TENTER FIRST LETTER OF YOUR CHOICE." 2100 Gosub 11100 2200 Position 0,9 2300 If Key=Asc("A") Then 2900 2400 If Key=Asc("I") Then 4300 2500 If Key=Asc("E"! Then ? #6: “LOADING MENU" : Run "D’.MENU" 2600 If Key=Asc("P“) Then 6900 2700 If Key=Asc("R") Then 8100 2765 If Key=Asc ( " ") Then Run "D-.INVOICIN" 2770 If Key=Asc("‘ ) Then Run "D: REPORTS" 2775 If Key=Asc<" "> Then Run "Ds MAILLIST" 2780 If Key=Ase <"") Then Run "D:0RD£RREC" 2800 Goto 1700 2900 Graphics 0:Poke 710,Cl:Poke 712,C2:Position 14,0:? "ADD INV£NTQRY":Position 11,1:? "ENTER ’END’ TO QUIT" 3000 Pnt=*“:De5t=“ , :8oh=0:Co5t = 0:Pri=0:Sold=0:Tds=0:Qoo=0 3100 Gosub 9000: Gosub 9600 3200 If Pnt="END” Then 4500 3300 Gosub 10600: If F>0 Then 3100 3400 ? "IS THIS INFORMATION CORRECT (Y OR N).'; 3500 Gosub 11100 3600 If KeyOAsc("Y") And KeyOAscCy") Then 2900 3700 Trap 3800: 6oto 3900 3800 Trap 4400:0pen #1,9,0, “D2: INVFIL.DfiT" 3900 If Len (Pnptt) >Max IM2-15 Then ? “} MEMORY FULL, SAVING INDEX":6oto 4500 4000 Note #l,S,B:Rput #l,Pnt,Dest,Vnt,Valt,Va2t,8oh,Loct,Reo, Cost, Pri, Sold, Ids, Qoo,Pg 4100 St=Strt(S!:Bt=Strt(B) 4200 Pnptt=Pnptt,'#",Pnt, "8",St,"&",Bt 4300 6oto 2900 4400 ? "1DISK ERROR})": Close #l:Goto 2900 4500 Close IliPoke 1913,80:0pen #1,8,0, "D2: INVPT.DAT" 4600 Rput #1, Pnptt 4700 Close #1 : Poke 1913, 87: Soto 800 4300 Graphics 0:Poke 710,Cl:Poke 712, C2: Posi tion 14,0:? "INVENTORY EDIT“:Position 11,1:? "ENTER ’END’ TO QUIT" 4900 ? :? "PART NUMBER": Input Pnt:? * ":If Pnt=“END° Then Close #l:6oto 800 5000 Tt="#",Pnt, "§" 5100 F=Find (Pnptt, Tt,0):T=F: If F=0 Then ? " PART NUMBER NOT IN INVENTORY}}}": For W=1 To 100:Next N:Soto 4800 5200 Trap 5700:F=Abs(F):F=Find (Pnptt, "§”,F):S=Val (Pnptt (F+ll) 5300 F=Find (Pnptt, “J-",F): B=Val (Pnptt (F+l ) ) 5400 Trap 5500: Goto 5600 5500 Open #1, 4, 0,“D2: INVFIL.DAT" 5600 Point #l,S,B:Rget #1, Pnt, Dest,Vnt,Valt,Va2t,Qoh,Loct,Reo, Cost, Pri, Sold, Tds,Qoo,Pg 5610 It Iest=l I hen Test=0:Goto 5000 5700 ? “imposition 14,0:? “INVENTORY EDIT":? :6csub 9000 5800 ? "(E)DIT; (Q)UIT; (S)AVEj (N)EiT; ; 5900 Sosub it 1 00:? "" 6000 It Key=Asc("E“) Or Key=Asc!“e“) Then 6400 6100 If Key=Asc("G") Or Key=Asc!"q"i Then Close #l:Goto 800 6200 If Key=Asc ( “S’* ) Or Key=Asc("s") Then 6500 6300 If Key=Asc("N"> Or Key=Asc("n“) Then 4300 6310 If Key=Asc("+") Then F=T-10:If F>=0 Then Test=i:Goto 5200 6320 If Key=Asc!“<“) Then Test=l:Goto 5200 6350 Goto 5700 6400 Gosub 9600: Goto 5700 6500 Gosub 10600: If F>0 And TOF Then 5700 6600 Close it.-Open # 1 , 1 2, 0, “D2: INVFIL.DAT" 6700 Point #l,S,B;Rput 11, Pnl,Des$,Vn$, Vail, Va2$,9ah, Loci, Reo, Cost, Pri , Sold, Tds,Qoo,Pg 6300 Close #t:Goto 4800 6900 Graphics 0: Poke 710, Cl : Poke 712,C2:Position 17,0: ? “OPTIONS" :Gtc=0:Gtp=0 6910 ? :? "1-ALL":? "2-BY VENDOR NAME":? “3-BY PRODUCT GROUP":? "4-PRICE LIST" 6920 ? "5-BELOW REORDER POINT and not on order" 6930 Gosub 11100:Key=Key-48: If Key>5 Or Key<l Then 800 7000 Trap 8000:Close #l:0pen #1,4,0, "D2: INVFIL. DAT“ : Open #7,8,0, “P: “ 7100 If Key=4 Then Gosub 15000: Goto 7500 7200 Cn$=" INVENTORY “: If Key=5 Then Cn$=“L0H INVENTORY " 7300 If Key=2 Then ? “VENDOR NAME";: Input Cnl 7400 Trap 7400: If Key=3 Then ? "PRODUCT GROUP":: Input Pqn:Cnl="PRQDUCT GROUP #',Strl(Pqn) 7450 Gosub 12000 7500 Trap 7900: Rget #l,Pnl,Desl,Vnt, Vail, Va2t,9oh, Loci, Reo, Cost, Pri, Sold, Tds, Boo, Pg 7600 Trap 7700:Tcost=0:Tcost=Co5ttfloh:Tpri=0:Tpri=PritQoh:Gpis=100 7650 Gps=(Int((l-(Cost/Pri) >11000))/ 10 7700 On Key Gosub 12600,13000,14000,15600,16000 7800 Goto 7500 7900 ? #7;Chrl(Pt3>:? #7; "WHOLESALE VALUED" ;6tc:? #7; "RETAIL VALUE=l“;Gtp:? #7;Chr$!Pt4) 8000 Close #1: Close #7: Goto 800 8100 ? "THIS FUCNTION WILL REINDEX ALL QF THE":? "INVENTORY FILES. PRESS Y TO CONTINUE,":? "N TO ABORT. 3200 Gosub 11100 8300 If KeyOAsc("Y") And KeyOAscCy") Then 800 8400 Close #i:0pen #1,4,0, "D2: INVFIL.DAT" 8500 Pnptl=“":Trap 4500 8600 Note #l,S,8:Rqet #l,Pnl,Desl,Vnl, Vail, Va2t,9oh, Loci, Reo, Cost, Pri, Sold, Tds, Boo, Pg 8700 SI=Strlisi :BI=Strl(B) 8800 Pnptl=Pnptl, "#",Pnl, "§“,SI, “li",BI 8900 Goto 8600 9000 Gpa=0:lf Cost>0 And Pri>0 Then 6p#=(Int((l-(Cost/Pri))ll000))/10 9050 Position 2,2:? "PART NUMBER: °;Pnl 9100 ? "DESCRIPTION;":? Desl 9200 ? 9300 ? 9350 ? 9400 ? 9450 ? 'VENDOR;":? Vnl:? Vail:? Va2$ “QQH: “;Qoh:? "LOCATION: ";Loc$:Position 28,10:? "GPM “jGpm; “% " "REORDER POINT: ";Reo:? "COST: $ B ; Cost : ? "SALE PRICE:t";Pri “9UANITY SOLD: ":Sold:? "TOTAL DOLLAR VALUE SOLD: $ H ; Tds: ? "STY ON ORDER: ■GROUP: “;Pg » * * Qoo 9500 Return 9600 Position 14, 2s Input Pn$;If Pn$=“END“ Then Return 9700 Position 1,4; Input Des$:Position 1,6; Input Vn$; Position 1,7; Input Val$;Position 1,8; Input Va2$ 9800 Trap 9800;Pcsition 6,9; Input QohiPosition 11, 10; Input Loc$ 9900 Trap 9900s Posi ti on 16, 11; Input Reo 10000 Trap 10000: Position 7, 12; Input Cost 10100 Trap 10100: Posi t i on 13, 13; Input Pri 10200 Trap 10200; Position 15, 14; Input Sold 10300 Trap 10300: Posi ti on 26, 15; Input Tds 10400 Trap 10400; Position 15, 16; Input Soo 10450 Trap 10450: Posi tl on 8, 17; Input Pg 10500 Return 10600 T$= M #\Pn$, u & H 10700 F=Find(Pnpt$,T$,0) : It T=F Then Return 10800 If F>0 Then ? 8 PART NUMBER ALREADY EXIST}}} 41 : For W=1 To 100;Next M 10900 Return nuvy tno 11100 Close 12: Open #2,4,0, *K: ":Get #2,Key:Close #2 11200 Sound 0,100,10,14: For W=1 To 4:Next M:Sound 0,0,0, OsReturn 12000 Fl$="!i !!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!! #»### ##### #####,## #*###.*# ##*## !!!!!!!!!! 12050 F1$=F1$, “#####! . ## #*####. #4 ###.*' 12100 ? #7 : ? #7; Tab ! 32-Len <Cn$) /2) ; Cn$; " 12200 ? 17; “PART # DESCRIPTION 12250 ? #7;" T/COST T/RETAIL GPH" ”;D$U,2!;“/ , ;D$(3,4);“/";D${5);Chrt(Pt2):? #7 GROUP QOH COST PRICE 12300 For W=1 To 120:? #7;“=*i:Next W:? #7 12500 Line=4:Return 12600 ? #7; Using Fit, Pni,Dest,Pg,3oh, Cost, Pri,Soo, Loci, Tcost,Tpri,Gpa 12700 Stc=&tc+Tcost: Gtp=Stp+Tpri 12900 Line=Line+l:If Line>=60 Then ? #7:Chrf(Pt3);Chrt(Pt4):6oto 12100 12999 Return 13000 Trap 13500: If Oni(l,Len(Cnt) j=Cnt Then 12600 13500 Return 14000 If Pg=Pgn Then 12600 14500 Return GOO LOCATION 15000 Fl#=" !!!!!!!!!!!! !!!!!!!! 1 !! 1 ! 1 !! 1 1 1 1 1 11 1 mm 15100 ? #7:? #7; Tab (27) ; "PRICE LIST *;Dt(l,2) 15200 ? 17; "PART # DESCRIPTION 7";D$(3,4!;“/“;D$!5! LOCATION #####.##“ ? 17 PRICE" 15300 For H=1 To 78:? #7;“=‘;:Next «:? #7 15500 Line=4; Return 15600 ? #7; Using Fit, Pn$,Des$, Loot, Pri 15900 Line=Line+i:If Line=60 Then ? #7;Chri(Pt4) : Sato 15100 15999 Return 16000 If Goh+Goo<Reo Then 12600 16500 Return 30000 ? tint ! (1-175/101 ) ItlOOO) ) 710 100 Dll Cl$(3),C2t(3),Dt(7),O$<7),N*(4O),At(40),Alt(4Q),Misct(2O),DtotiilO),Tt(13},Fl$(120) 200 Din Pni(12),Desi(30),Vnt(35) f Valt(35),Va2t!35),Loct(i0),Pvt(35),Palt(35),Pa2$(35) 400 Trap 700 500 Open #1 , 4, 0, "Di : SETUP. DAT" : Rqet A*,Al$,Hisc*,Ptl,Pt2,Pt3,Pt4,M3,M4,H5,M6sClose *1 550 Open #i , 4, 0, *D1 s SETUP2. DAT" : Rget #i,D$,Dtot,In,Ytd,Ptd,Ttd,Nac,Tr,Hl,H2,«7,N8,H9,H10 540 Max =22000; Di® St(5>,Bit4),Pnptt(MaxtM2) 400 Gosub 18500 700 Close #1 800 Trap 800; Graphi cs 2:Poke 710, Cl : Poke 712,C2:Poke 755, 1 ; Poke 82,2 850 Position 3,1;? t4;"order reci evi ng " : Posi ti on 3.4:? #4; “COPYRIGHT 1983“ 900 Position 5,7;? #4; "NEWELL IND" 1000 Cl=Val(Clt):C2=Val(C2t) 1100 Poke 710, Cl : Poke 712,C2:Poke 755,l:Poke 82,2 1200 Poke 457,20-(Len(Nt5/2):? Nt 1300 Poke 457,20-<Len(At)/2):? At 1400 Poke 457,20-(Len(Alt)/2):? Alt 1500 Poke 457, 20- (Len (Mi set ) 72) : ? Misct; 1400 Del 0,700 1425 Del 850,1400 1700 Trap 1700:? #4;“}“ 1800 Position 1,1:? #4;“0rder‘:Position 1,2:? #4: “Receiving": Position 1,3:? #4; “Exit to »enu“ 1900 Position 1,4:? i4;“Turn report“:Position 1,5:? i4:“Sales report* 2000 ? “’ENTER FIRST LETTER OF YOUR CHOICE." 2100 Gosub 11100 2200 Position 0,9 2300 If Key=Asc(“Q“) Then Te=0:6oto 2900 2400 If Key=Asc("R") Then 4800 2500 If Key=Asci“E“) Then ? #4; “LOADING MENU": Run "D:MENU" 2400 If key=Asc(“T“) Then 4900 2700 If Key=Asc(“S“) Then 8100 2745 If Key=Asc("“) Then Run "D: INVENTOR" 2770 If Key=Asc(“"> Then Run "Ds REPORTS" 2775 I f Key=Asc < " ") Then Run "D: MAILLIST" 2780 If Key=Asc ( " "> Then Run "D; INVOICIN'' 2800 Goto 1700 2900 Graphics Os Poke 710, Cl: Poke 712, 02; Posi t ion 13,0;? "PURCHASE OF^DER" 2950 If Te=0 Then Position 11,1s? "ENTER “ END" TO ABORT" 3000 F'n$= " " ; Des$=" " ; Vn$=" " ; Val$=" " ; Va2$=" " : Goh=0: Loc$ : =0; Tds=Os Qoo=0 3100 ? : ? "PART NUMBER" : Input F‘n$:? " en 8000 3150 If Pn$="NEXT" Then Gosub 13500: Goto 2900 3200 If Pn$=" " And Te>0 Then 4500 3300 Gosub 13000; If F=0 Then 2900 3350 Gosub 14000; Gosub 9000 3400 ? "IS THIS THE PART <Y OR N).";s Gosub 11100 3500 If Key < > Asc ( " Y " ) And Key< >Asc ( "y" ) Then 2900 3600 If Pv*= " " Then F' v $ = V n $ : P a 1 $ = V a 1 T : P a 2 $ - V a 2 $ 3700 If Pv$< >Vn$ Then ? :? "NOT SAME VENDOR! IS THIS sc ( " Y " ) And Kev< >Asc ( " y " ) Then 2900 3800 ? " }":Position 2,2:? "QUANITY TO ORDER"; : Trap 3800; Input Hm: If Hm< 1 00 3900 ? : ? "IS THIS CORRECT?" Gosub 11100: If Key< >Asc ( " Y " ) And Key< >Asc ( "y “ ) The n 3800 3950 Qoo=Qoo+Hm 4000 If Te< 1 Then Gosub 16000 4100 Gosub 17000: Gosub 10000: Goto 2900 It it 2 Reo-Os Cost -Os Pr i -Os Sol d ii s If Te=0 And pn$~“END u Th OK? n ; s Gosub 111 00 s I f Key< >A Then 29 4500 45 1 0 4550 4600 #7 n «l II II •**“, l| 4 > TERMS" ;: Input T % : ? " AUTH. s Input Q$ #7; "DATE " ; Dt ( 1 , 2) ; " / " ; D$ (3, 4 > ; " / " ; D$ (5) ; " #7; "TOTAL ; Tot ; Chr* (Pt4) TERMS " ; T$; " AUTH it 4 7 O O Pv$=“ "! T e = O s T ot-Os lil O -Ml O ■+ 1 s G o s u b 1 8 O O O s G o t o 8 O O O ti n *+ou u urapnics u:ro«e / 10 , Li : Poke /12, C2: Posi t i on 14,0:? "RECEIVING P. 0. " : Posi tio n 11,1:? "ENTER ’END' TO QUIT" 4900 ? : ? "PART NUMBER" : Input Pn$; ? " " ; If Pn$="END" Then Close # 1 : Goto 800 4950 I f F'n$="NEXT" Then Gosub 13500: Goto 4800 5000 Gosub 13000: If F-0 Then 4800 5100 Gosub 14000: Gosub 9000 5200 ? "IS THIS THE PART (Y OR N>.";: Gosub 11100 5300 If Key< >Asc < " Y" ) And Key< >Asc ( "y " ) Then 4800 5400 ? Posit ion 2,2:? "QUANITY RECEIVED" ;: Trap 5400: Input Hm: If Hm< 1 Then 48 00 5500 ? : ? "IS THIS CORRECT?" Gosub 11 100: If Key< >Asc ( "Y" ) And Key< >Asc ( "y " > The n 5400 5600 Qoo=Qoo-Hm: Qoh=Qoh+Hm: If Qoo<0 Then Qoo=0 6 0 0 0 Gosub 1 0 0 0 0 6800 Goto 8000 6900 Graphics 0:Poke 710,Cl:Poke 712, C2: Posi t i on 15,0:? "TURN REPORT" 7000 Position 2,2:? " 1 . TURN" s Posi ti on 2,4:? "2. TURN AND CLEAR" : Posi ti on 2,6:^ "3 .EXIT" 7100 Trap 7100: Posi ti on 2,18;? "ENTER CHOICE" : Input Key: If Key =3 Then 800 7200 If Key >3 Then 7100 7300 F= 1 : Cl ose #7 : Open #7,8, 0 , " P; " ; Gosub 9600 7400 Trap 7900: Gosub 13200: If F=0 Then 7900 7500 Gosub 14000 7700 ? #7; Using F 1 % , PnS , Desf , Qoh , Cost , Pr i , Qoo , Loc$, Sol d , Tds 7750 If Key=2 Then Sol d=0: Tds=0: Gosub 10000 7800 Goto 7400 7900 ? #7 : Chr S ( F't 3 ) : ? #7 ; Ch r $ ( Pt 4 ) 8000 Close #1: Close #7: Goto 800 8100 Graphics 0:Poke 710, Cl: Poke 712, C2: Posi t i on 13,0:? "SALES REPORT" 8200 Position 2,2;? " 1 . TOTALS" : Posi ti on 2,4:? "2. TOTALS AND CLEAR" : Posi ti on 2,6: 11 j“ x I T 1 1 8300 Position 2,8:? "4. NEW YEAR (Cl ears all sales data)" 8400 Trap 7100; Posi ti on 2,18:? "ENTER CHOICE" ; Input Key: If Key =3 Then 8500 If Key >4 Then 8400 8600 Close #7;0pen #7, 8, 0, "P: " : ? #7; Chr$ (Pt 1 ) ; "SALES REPORT ";D$(i,2> ) ; "/"sD*<5,6> 8650 F 1 $= " $######### . ## " 8700 ? #7; "YEARLY SALES = ";:? #7; Using Fl$,Ytd 8710 ? #7; "PERIOD SALES = ";;? #7; Using Fl$,F‘td 8720 ? #7; "TAXABLE SALES=";:? #7: Using Fl*,Ttd 8790 ? #7;Chr$(Pt4) 8800 If Key>l Then Ptd=0: Ttd=0: Dtot=0: If Key=4 Then Ytd-0 8850 If Key >1 Then Gosub 18000 8900 Got o 8000 9000 Posi t i on "/" : Df (3,4 PART NUMBER: ":Pn$ 9 1 00 ? " DESCR I PT ION;";? Des$ 9200 ? "VENDOR;":? Vn$;? Val$:? Va2$ 9300 ? "QOH: " ; Qoh : ? "LOCATION: ";Loc$:? "REORDER POINT: ";Reo:? "COST: Cost : ? "SALE PRICE: $";Pri 9400 ? "QUANITY SOLD; ";SoId:? "TOTAL DOLLAR VALUE SOLD: $" ; Tds: ? " QTY ON ORDER: " ; Qoo 9450 ? "GROUP: " ; Pg 9500 Return 9600 Fl$=" !!!!!!!!!!! ! i I i !!!!!!!! I !!!!!!!! I i ! i ! i ! I !! i !!!!!! ! #### ###.## ###.# # ##### !!!!!!!!!! ######### ######.##" 9650 ? #7; Chr$ (Pt 1 ) ; "TURN REPORT " ; D$ < i , 2) 5 "/" ; D$<3,4> ; ; D* (5) 9700 ? #7; Chr$ (F‘t2> 9800 ? #7; "PART # DESCRIPTION QOH CE QOO LOCATION TURN AMOUNT" 9900 For W=1 To 120:? #7; "=" ; : Next W:? #7 9999 Return 1 0000 Close # 1 : Op en #1 , 12,0, "D2: I N VF I L . D AT " 1 0 1 00 Point # 1 , S , B s Rput # 1 , F'n* , Des$ , Vn$, Va 1 % , Va2$ , Qoh , Loc$, Reo , Cost , Pr i , Sol d , Td , Qoo,Pg ..... 10200 Close #1: Return COST PR I lllOO Li ose #2: Upen #2, 4, U, K: : bet #2, Keys Close #2 11200 Sound 0,100,10,14: For W=1 To 4: Next Ws Sound 0 , 0 , 0 , 0 : Return 13000 Tt="#",Fnt, "@" 13100 F=Find (Pnptt,Tt,0> : T=F: If F=0 Then ? " PART NUMBER NOT IN INVENTORY! }}"': For W=1 To 100: Next W; Return 13200 F=Find (F’nptt, "(§" , F) : S=Val (Pnptt (F+l ) ) 1 3300 F=Fi nd ( Pnptt , " ?< " , F> s B=Val < Pnptt ( F+ 1 ) ) 13400 Return 14000 Trap 8000: Cl ose #1 14100 Open #1 , 4, 0, "D2; INVFIL. DAT" 14200 Poi nt #1 , 5, 8: Rget #1 , Pnt , Dest , Vnt , Val t , Va2t, Qoh , Loct , Reo, Cost, Pr i , Sol d , Tds , Qoo, Pg 14300 Return 16000 Trap 16100: Close #7: Open #7, 8, 0, "Ps " : Goto 16200 16100 ? "TURN ON PRINTER AND PRESS RETURN} " : Sosub 11 100: Goto 16000 16200 ? #7 ; Nt ; ? #7; At:? #7; Alt:? #7; Mi sot 16300 ? #7:? #7:? #7; Tab (30) ; Chrt (Pt 1 ) » "PURCHASE ORDER":? #7; Tab (33) ; Chrt (Pt 1 ) ; " # " ; M 1 0 : ? #7:? #7 i A / \ \ '** J* 44* / tt ^ * ***** **r*r ***** ***** ***** ***** ***** — *• *•**• »«" *••** «*• •— »••• *«— •— — «♦« «•« -•**• ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** .,**. ***** i i j i i [ti i “y • •j*J* j i| ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** * **** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** 16500 ? #7; Chrt (Pt 1 >; "VENDER: ": Tab (21) ; "SHIP TO;" 1 6600 ? #7 ; Pvt ; Tab ( 40 ) ; Nt 1 6700 ? #7 : Pa 1 t ; Tab ( 40 ) ; At 1 6800 ? #7 : F'a2t : Tab ( 40 ) ; A 1 1 16900 ? #7:" li #7:? #7 16910 ? #7; "PART Tab ( 14) s "DESC. /VENDOR P/N" ; Tab (52) : "QUAN" ; Tab (5S) ; “PRICE EA" ; Tab (68) ; "EXT. PRICE" 1 Xw K**^ ( j * |k * / n ^ ^ ***** ‘ 2UI ***** ***** **y ***** ^ jjjjj ^ «■»» «••• •«« »•» **** * .»» ***** ***** ..... **** * ***** ***** ***** ***** ***** -+*+* ***** ***** ***** ***** ***** ***** >m t ***** ***** ***** ***** ..... ^ ^ ^ H 16999 Te— 1 s Return 17000 FI £—"#### #####„## #####. ##" 17100 ? #7;Pn**Tab(14) jDes*sTab(52) ; s? #7; Using Fl$, Hm, Cost , Cost *Hm 1 7500 Tot = Tot +Cost *Hm 17999 Return 18000 Cl ose # 1 : Open # 1 , 8 , ( D, "D1 , M1,M 2 , M7 ? M8 L M9, M10 1 8 1 00 Cl ose # 1 s Return 18500 Cl ose #1 s Upen * 1 , 4 , ( }, " D2 18600 Cl ose #1 s Retur n 100 Dim C 1 $ ( 3 ) ,C2t(3> , Dt (7) ,Qt(7> , Nt(40) , At(40> , Alt (40) , Mi sc* (20) , Tt(38) , Fit (120 ) •$######„##" 1 50 F 1 n J J | j | J j { j j | j { j j | | | j j j • i t i » * i ! i • i i i i » i ! i i i t i t i i i i i i ! i 200 Dim Acct ( 8 ) , Cnt (35) ,Cal*(35> ,Ca2t<35) ,Trm*(12) 400 Trap 700 500 Open #1,4,0, "D1 s SETUP. DAT" : Rget #1 , Cl t, C2t , Nt, At, Alt, Mi set, Pt 1 , Pt 2 , Pt 3 , Pt 4 , M 3, M4, M5, M 6 : Cl ose #1 550 Open #1,4,0, "D1 ; SETUP2. DAT" : Rget #l,Dt,Dtot, In , Ytd , Ptd , Ttd , Nac , Tr , Ml , M2, M7, M 8 , M9 , M 1 0 560 Max =22000 ; Di m St (5 ) , Bt (4 ) , Acp 1 1 ( Max #M 1 ) 600 Close # 1 s Op en #1,4,0, " D 1 : ACCPT . DAT " : Rg et # 1 , Ac p 1 . 1 700 Close #1 800 Graphics 2: Poke 710, Cl : Poke 712, C2: Poke 755,1 850 Position 4,2:? # 6 ; "mailing 1 i st " : F'osi t. i on 3,6 900 Position 5,7:? # 65 "NEWELL IND" 1 000 C 1 =Va 1 ( C 1 t ) : C 2 = Va 1 ( C 2 t ) 1 1 00 Poke 7 1 0 , C 1 : Poke 7 1 2 , C2 : Poke 755 , 1 : Poke 82 , 2 (Len (Nt) /2) : ? Nt (Len (At) /2> : ? At (Len (Alt) /2) : ? Alt (Len (Mi set ) /2) : ? Mi set; Poke 82,2 ? # 65 "COPYRIGHT 1983" 1200 Poke 657,20 1300 Poke 657,20- 1400 Poke 657,20- 1500 Poke 657,20- 1600 Del 0,700 1625 Del 850,1600 1700 Trap 1700 #6 It ** it 1800 Position 1,1s? # 6 ; “ AI 1 n s Posi t i on Exit to menu" 1900 Position 1,4s? # 6 ? "Selected accounts" 2000 ? n > ENTER FIRST LETTER OF 2100 Gosub 11100 # 6 ; "Outstandi nq n s Posi t i on 1,3s? #6 it YOUR CHOICE II 200 F'osi t i on 0 , 9 300 If Key=A.sc ( "A" ) If Key=Asc ( "0" ) Key=Ase ( "E" ) 2400 2500 If 2600 If Key=Asc ( "S" ) 2 765 2770 Then 2900 Then 4800 Then ? # 6 ; "LOADING MENU": Run "D: MENU" Then 6900 n — r cil jC / / o If 2780 If If Key=Asc ( " " > Then Run "D: INVENTOR" If Key=Asc ( " " ) Then Run "D: REPORTS" Key=Asc ( " ") Then Run "D: INVOICIN ' 1 Key=Asc ( "") Then Run “DsQRDERREC" 2800 Bcto 1700 2900 Sraphics OiPoke 710,Cl:Poke 712,C2:Position 16,0:? “ALL ACCOUNTS” 2950 Trap 2950;? “ENTER NUMBER OF LABEL LINES"; : Input Lab 3000 Trap 8000;6osub 15000 3300 Bosub 16500: If Cn$="“ And Acc>Nac Then 8000 3350 If Cn$=“" Then 3300 3400 Bosub 14900: Bosub 10000 3800 Soto 3300 4800 Sraphics 0:Poke 710,Cl;Poke 712,C2:Position 10,0:? "OUTSTANDING ACCOUNTS 4850 Trap 4850:? "ENTER NUMBER OF LABEL LINES";: Input Lab 4900 Trap 8000: Gosub 15000 5000 Bosub 16500: If Acc>Nac Then 8000 5100 If Bd<=0 Then 5000 5200 Gosub 14900: Bosub 10000 5300 Goto 5000 6900 Graphics OiPoke 710,Cl:Poke 712,2:Position 12,0:? “SELECTED ACCOUNTS" 6950 Trap 6950:? "ENTER NUMBER OF LABEL LINES';: Input Lab 7000 Position 2,2:? "ENTER ACCOUNT NUMBER OR NAME": Input T$ 7100 If T$="" Then 8000 7200 Trap 7500:Acc=Val(T$):Acc$=T$:T$=”#",Acct,"@" 7210 F=Find (Acpt*, Tt , 0) : If F =0 Then ? "ACCOUNT NOT ON FILE)}}": 7220 F=Find(Acpt$,“@“,F):Sa=Val (Acptt (F+l ) > 7230 F=Find (Acptt, "fc“,F) :Ba=Val (Acpt$(F+15 i 7250 Trap 8000: Gosub 15000: Bosub 16000 7260 Goto 7600 7270 Bosub 14900: Gosub 10000: Soto 7600 For W=1 To 100: Nest H:Goto 6900 7500 Trap 8Q0U:bosub 15000 7510 Trap 7520:6osub 1 6500 : I f T$=Cn$ii,len(T$>) Then 7600 7520 If Acc>=Nac Then 8000 7530 Soto 7510 7600 Sosub 12000: 6osub 11100 7610 If KeyOAsc!“P") And KeyOAscCp") Then 8000 7700 6oto 7270 8000 Close #l:Close #7:6oto 800 10000 ? #7;Chr$ (Pt 1 ) ; “# a ; Acc 10100 ? #7;Cn$ 10200 ? #7:Cal$ 10300 ? #7;Ca2$ 10400 For N=1 To Lab-4:? 17: Nest 14 11000 Return 11100 Close #2: Open #2,4,0,“K:“:Get #2, Key: Cl ose #2 11200 Sound 0,100,10,14: For 14=1 To 4: Nest W:Sound 0,0,Q,0:Return 12000 ? “ACCOUNT F;Acc:? Cn$ 12100 ? Cal$ 12200 ? Ca2$:? 12999 Return 14900 Close #7:0pen #7,8,0, "P:“ 14999 Return 15000 Close #1 : Open #1,4,0, “DhACCOUNT. DAT” 15500 Return 16000 Point #l,Sa,Ba:Rget #l,Cn$,Cal$,Ca2$,Tdt,Pd,Bd,Acc,Trffl$:Return 16500 Note tl,Sa,Ba:Rqet #l,Cn$,Cal$,Ca2$,Tdt,Pd,Bd,Acc,Tr«$:Return 17000 Point #l,Sa,8a:Rput #i,Cn$,Cal$, Ca2$, Tdt , Pd , Bd, Acc , Trmf : Return 17500 Close #l:0pen #1,12,0, "Dl: ACCOUNT. DAT": Return